* table 3

use Diversification.dta, clear

gen  GDPpcppp2= GDPpcppp* GDPpcppp

* elimination of microstates

egen mpop=mean(pop), by(reporter)
drop if mpop<1000000

gen Ogdp=Soil*GDPpcppp
gen Ogdp2=Soil*GDPpcppp2

gen y10=6.579816-0.0003229* GDPpcppp+0.00000000676* GDPpcppp2+ 0.0003804* GDPpcppp*0.1-0.00000000849* GDPpcppp2*0.1+ 1.540866*0.1
gen y30=6.579816-0.0003229* GDPpcppp+0.00000000676* GDPpcppp2+ 0.0003804* GDPpcppp*0.3-0.00000000849* GDPpcppp2*0.3+1.540866*0.3
gen y50=6.579816-0.0003229* GDPpcppp+0.00000000676* GDPpcppp2+ 0.0003804* GDPpcppp*0.5-0.00000000849* GDPpcppp2*0.5+1.540866*0.5
gen y70=6.579816-0.0003229* GDPpcppp+00.00000000676* GDPpcppp2+ 0.0003804* GDPpcppp*0.7-0.00000000849* GDPpcppp2*0.7+1.540866*0.7

sort  GDPpcppp
label var  y10 "raw materials exports=10%"
label var  y30 "raw materials exports=30%"
label var  y50 "raw materials exports=50%"
label var  y70 "raw materials exports=70%"

drop if GDPpcppp>40000
twoway (line y10 GDPpcppp, lcolor(black) lpattern(solid) lwidth(medthick)) (line y30 GDPpcppp, lcolor(black) lpattern(longdash) lwidth(medthick)) (line y50 GDPpcppp, lcolor(black) lpattern(dash_dot) lwidth(medthick)) (line y70 GDPpcppp, lcolor(black) lpattern(dot) lwidth(medthick))




